home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / arc / xFX.lha / xFX / ARexx / DiskCopy.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-22  |  600b  |  31 lines
  1. /*
  2.  
  3.                         **************************
  4.                         **** xFX ARexx script ****
  5.                         **************************
  6.  
  7.  
  8.                                  DiskCopy
  9. */
  10.  
  11.  
  12. if ~show('P','xFX.1') then do  /* Check if xFX is running */
  13.   say 'xFX not running !'
  14.   exit
  15. end
  16.  
  17. InDev  = ''
  18. OutDev = ''
  19.  
  20. say 'Input device:'
  21. parse pull InDev
  22. if InDev ~= '' then do
  23.   say 'Output device:'
  24.   parse pull OutDev
  25.   if OutDev ~= '' then do
  26.     if InDev ~= OutDev then address 'xFX.1' copy InDev to OutDev verify
  27.     else address 'xFX.1' copy InDev verify
  28.     say 'Done.'
  29.   end
  30. end
  31.